home *** CD-ROM | disk | FTP | other *** search
/ Building Homes of Our Own / Building Homes of our Own.iso / setup / data1.cab / Everything / working / houCons.dxr / interface_52_House_popUpMenuItem behave.ls < prev    next >
Encoding:
Text File  |  2002-09-25  |  831 b   |  36 lines

  1. property mySprite, myName, myType, ancestor
  2.  
  3. on beginSprite me
  4.   global gPopUpMenuMan, gActorListMan
  5.   mySprite = me.spriteNum
  6.   myType = #menuItem
  7.   ancestor = new(script("House_popUpMenuItemActions"), mySprite)
  8.   reportPopUpSpriteNum(gPopUpMenuMan, myType, mySprite)
  9.   hide(me)
  10.   registerSprite(gActorListMan, mySprite)
  11. end
  12.  
  13. on endSprite me
  14.   global gActorListMan
  15.   unRegisterSprite(gActorListMan, mySprite)
  16.   sprite(mySprite).visible = 1
  17. end
  18.  
  19. on showProps me
  20.   put RETURN
  21.   PropNum = count(me)
  22.   repeat with x = 1 to PropNum
  23.     prop = 0
  24.     thisProp = getPropAt(me, x)
  25.     if thisProp = #myHandlers then
  26.       next repeat
  27.     end if
  28.     prop = string(getPropAt(me, x)) && "=" && getaProp(me, thisProp)
  29.     put prop
  30.   end repeat
  31.   if objectp(ancestor) then
  32.     put "ancestor properties...."
  33.     showProps(ancestor)
  34.   end if
  35. end
  36.